home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / tex-scripts / quit_tex.ged < prev    next >
Encoding:
Text File  |  1997-02-16  |  1.1 KB  |  45 lines
  1. /*
  2. ** ARexx Script to stop the "Start_TeX" script.
  3. **
  4. **                      February 94, R. Laederach
  5. Done by:
  6.  
  7. R.Laederach
  8. Kappelisackerstr. 46
  9. 3063 Ittigen
  10. Switzerland
  11. Phone:+41/(0)31/912 19 08
  12.  
  13. This stuff ist PostcardWare, so send me a postcard or something useful (read
  14. the doc!).
  15. */
  16.  
  17. /* $VER: 0.9, ©1993 Dietmar Eilert. Empty GoldED macro */
  18.  
  19. OPTIONS RESULTS                             /* enable return codes     */
  20.  
  21. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  22.     address 'GOLDED.1'
  23.  
  24. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  25. OPTIONS FAILAT 6                            /* ignore warnings         */
  26. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  27.  
  28.  
  29. IF (SHOW('P', 'Start_TeX')) THEN DO
  30.         'REQUEST BODY="Really stop ARexx TeX-server ?" BUTTON="Yep|Nope"'
  31.         if (RESULT == "1") THEN ADDRESS 'Start_TeX' 'quit'
  32.         END
  33. ELSE
  34.         'REQUEST BODY="No TeX Server to quit"'
  35.  
  36. 'UNLOCK' /* VERY important: unlock GUI */
  37. EXIT
  38.  
  39. SYNTAX:
  40.  
  41. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  42. 'UNLOCK'
  43. EXIT
  44.  
  45.